﻿Namespace Attributes
    <System.AttributeUsage(System.AttributeTargets.Property, AllowMultiple:=False, Inherited:=True), System.Serializable()> _
    Public Class ForeingKeyTableMappAttribute
        Inherits Attribute
        Implements IPropertyAttribute
        Private _ForeingTableName As String
        Public Property ForeingTableName() As String
            Get
                Return _ForeingTableName
            End Get
            Set(ByVal value As String)
                _ForeingTableName = value
            End Set
        End Property
        Private _ForeingField As String
        Public Property ForeingField() As String
            Get
                Return _ForeingField
            End Get
            Set(ByVal value As String)
                _ForeingField = value
            End Set
        End Property
        Private _StaticClause As String
        Public Property StaticClause() As String
            Get
                Return _StaticClause
            End Get
            Set(ByVal value As String)
                _StaticClause = value
            End Set
        End Property

        Public Sub New(ByVal foreinTable As String, ByVal foreingField As String)
            Me.ForeingTableName = foreinTable
            Me.ForeingField = foreingField
        End Sub

        Public Sub New(ByVal foreinTable As String, ByVal foreingField As String, ByVal statciClause As String)
            Me.ForeingTableName = foreinTable
            Me.ForeingField = foreingField
            Me.StaticClause = statciClause
        End Sub



    End Class
End Namespace
